#保存成pdf
pdf("test9.pdf")
a<-c(10,15,20,25,30,35)
b<-c(12,23,27,44,56,63)
# plot(a,b)


# 在R语言中，plot() 函数是一个非常基础且强大的函数，用于创建二维图形。它是R语言中最基本的绘图工具之一，可以用于绘制散点图、折线图、条形图等多种类型的图表。

# 基本语法

# plot(x, y, type = "p", main = NULL, xlab = NULL, ylab = NULL, ...)
# 参数说明
# x：x轴的数值。
# y：y轴的数值。
# type：图表类型，常用的有：
# "p" - 点图（默认）
# "l" - 折线图
# "b" - 折线图和点图
# "c" - 仅折线图，不包括点
# "n" - 不绘制任何图形，但会设置坐标轴
# main：图形的主标题。
# xlab：x轴的标签。
# ylab：y轴的标签。
# ...：其他图形参数，如颜色（col）、点的形状（pch）、线的宽度（lwd）等。

x <- 1:10
y <- rnorm(10)
plot(x, y)#散点图
plot(x, y, type = "l")#折线图
plot(x, y, type = "b")#带点折线图
plot(x, y, type = "b",main = "Custom Plot", xlab = "X Axis", ylab = "Y Axis",col = "red", pch = 19, lwd = 2,)
plot(x, y, type = "n")#仅设置坐标轴

par(oma=c(3,3,3,3))  #请把注意里放在par函数与box函数上，其他函数后面会提及
# par()函数用于设置图形参数。oma参数是一个包含四个元素的向量，分别控制图形边缘的边距。这四个值分别对应外边框的下、左、上、右边距（单位通常是行）。
# c(3,3,3,3)：这表示设置所有四个边距为3，这通常用于增加图形周围的空白区域，使得图形看起来不那么拥挤。

lines1<-plot61<-plot(a,b,type="b",pch=23,col="blue",col.axis=2,xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="红色框里的为plot区域",sub="plot61")
# a和b是数据向量，分别代表x轴和y轴的数据。
# type="b"：表示同时绘制点和线。
# pch=23：设置点的形状，23代表实心圆。
# col="blue"：设置点和线的颜色为蓝色。
# col.axis=2：设置坐标轴的颜色，2通常是一个预定义的颜色。
# xlim=c(0,40)和ylim=c(5,65)：设置x轴和y轴的范围。
# col.main=2：设置主标题的颜色。
# col.sub="blue"：设置副标题的颜色为蓝色。
# main="红色框里的为plot区域"：设置主标题。
# sub="plot61"：设置副标题。

lines2<-lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
# lines()函数用于在现有的图形上添加线或点。
# c(5,10,20,25,32,35)和c(5,25,35,45,50,55)是x轴和y轴的数据点。
# type="b"：同时绘制点和线。
# pch=21：设置点的形状，21代表三角形。
# col="red"：设置点和线的颜色为红色。

legend("topleft",inset=0.05,cex=0.8,title="lines",c("lines1","lines2"),pch=c(23,21),text.col=2)
# legend()函数用于在图形上添加图例。
# "topleft"：图例的位置。
# inset=0.05：图例的内缩距离。
# cex=0.8：图例文本的大小。
# title="lines"：图例的标题。
# c("lines1", "lines2")：图例中显示的文本。
# pch=c(23, 21)：图例中点的形状。
# text.col=2：图例文本的颜色。


text(27,60,"lines1",col="blue")
text(35,45,"lines2",col="red")
# text()函数用于在图形上的指定位置添加文本。
# (27, 60)和(35, 45)是文本的位置。
# "lines1"和"lines2"是添加的文本。
# col="blue"和col="red"：设置文本的颜色。

box(which="plot",col="red",lwd=2)
box(which="inner",col="black",lwd=4)
box(which="figure",col="blue",lwd=3)
box(which="outer",col="green",lwd=5)
# box()函数用于绘制图形的边框。
# which参数指定边框的类型：
# "plot"：绘制主绘图区域的边框。
# "inner"：绘制内部绘图区域的边框。
# "figure"：绘制整个图形区域的边框。
# "outer"：绘制最外层的边框。
# col参数设置边框的颜色。
# lwd参数设置边框的线宽。

# 在R语言中，par() 函数是一个非常强大的工具，用于设置当前图形设备的参数。这些参数控制图形的许多方面，包括布局、颜色、线型、字符、坐标轴等。par() 函数可以在绘图之前调用，以设置图形参数，或者在绘图之后调用，以查询当前的图形参数设置。
#
# 基本用法
# par(value)
# value：这是一个逻辑值，如果设置为TRUE，则返回当前的图形参数设置；如果设置为FALSE或省略，则允许你设置新的图形参数。
# 参数设置
# par() 函数有许多参数，以下是一些常用的参数：
#
# mfrow：一个二元组，用于将图形设备分割成多个面板，例如 mfrow = c(2, 2) 将设备分割成2行2列的面板。
# mfcol：与 mfrow 类似，但面板是按列优先顺序排列。
# mfrow：分割画图区域，一个大图分割成几个子图，按行绘制子图
# oma：一个四元素向量，用于设置图形边缘的外边距。
# mar：一个四元素向量，用于设置图形边缘的内边距。
# cex：用于控制字符的扩展比例，默认为1。
# pch：用于设置点的形状。
# col：用于设置颜色。
# lwd：用于设置线的宽度。

par(oma=c(2,1,2,0.5),col="blue",mgp=c(2,1,0),bg="white")
lines1<-plot51<-plot(a,b,type="b",pch=23,col="blue",col.axis=2,xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="背景为白",sub="plot51")
lines2<-lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
legend("bottomright",inset=0.05,cex=0.8,title="lines",c("lines1","lines2"),pch=c(23,21),text.col=2)
text(27,60,"lines1",col="blue")
text(35,45,"lines2",col="red")

plot(a,b,main="主标题位置",sub="副标题位置")

par(mfrow=c(2,2))    #表示画图的布是两行两列的，只能最多画四个图
plot2<-plot(a,b,type="p",main="点图",sub="plot2",col="black")
plot3<-plot(a,b,type="l",main="线图",sub="plot3",col="black")
plot4<-plot(a,b,type="b",main="点线图",sub="plot4",col="black")
plot5<-plot(a,b,type="c",main="点线图去掉点",sub="plot5",col="black")

par(mfcol=c(2,2))
plot6<-plot(a,b,type="o",main="同时绘制点和线，线穿过点",sub="plot6")
plot7<-plot(a,b,type="h",main="绘制出点到横坐标轴的垂直线",sub="plot7")
plot8<-plot(a,b,type="s",main="阶梯图，先横后纵",sub="plot8")
plot9<-plot(a,b,type="S",main="阶梯图，先纵后横",sub="plot9")

par(mfrow=c(3,1))
p1<-plot(a,b,type="b",pch=5,main="例1")
p2<-plot(a,b,type="b",pch=23,col="red",bg=9,main="例2")

#自定义pch
plot(a,b,type="b",pch="6",col="red",bg=6)

# cex：指定点的大小
plot(a,b,type="b",pch="*",cex=1,sub = "small")
plot(a,b,type="b",pch="*",cex=4,sub = "big")

# cex家族还可以指定其他部位的大小
# cex.axis	坐标轴大小
# cex.lab	坐标轴标签的大小
# cex.main	主标题大小
# cex.sub	副标题大小

plot(a,b,type="b",pch="*",cex.axis=2,cex.lab=2)

a1<-c(12,22,32,42,52,62)
b1<-c(12,22,32,42,52,62)
par(mfrow=c(3,2))

# lty:指定绘制线条时的类型
plot(a1,b1,type="b",pch="*",lty=1,main="lty=1 实线")
plot(a1,b1,type="b",pch="*",lty=2,main="lty=2 虚线")
plot(a1,b1,type="b",pch="*",lty=3,main="lty=3 点线")
plot(a1,b1,type="b",pch="*",lty=4,main="lty=4 点+短虚线")
plot(a1,b1,type="b",pch="*",lty=5,main="lty=5 长虚线")
plot(a1,b1,type="b",pch="*",lty=6,main="lty=6 点+长虚线")

# 线条粗细使用lwd 参数，直接用数字表示粗细
par(mfrow=c(2,1))
plot(a1,b1,type="b",pch="*",lty=1,main="lty=1 lwd=1 实线",lwd=1)
plot(a1,b1,type="b",pch="*",lty=1,main="lty=1 lwd=2 实线",lwd=2)

# 使用col设置线条颜色
# 参数	    作用
# col	      默认的绘图颜色（有些函数可以有不同操作）比如：某些函数可以接受一个含有颜色的向量，并自动循环，使用col=c(“blue”,“white”)绘制三条线时，第一条为蓝色，第二条为白色，第三条为蓝色
# col.axis	坐标轴刻度文字颜色
# col.lab	  坐标轴标签的颜色
# col.main	标题颜色
# col.sub	  副标题颜色
# fg	      图形的前景色
# bg	      图形的背景色

par(mfrow=c(2,1))
plot(a1,b1,type="b",pch="*",lty=1,main="线条颜色为blue",col="blue",lwd=1.5)
plot(a1,b1,type="b",pch="*",lty=1,main="线条颜色为粉红色",col=2,lwd=2)

par(mfrow=c(3,2))
plot11<-plot(a,b,type="b",pch="*",col.axis=2,main="坐标轴刻度颜色为红",sub="plot11")
plot12<-plot(a,b,type="b",pch="*",col.lab=2,main="坐标轴标签颜色为红",sub="plot12")
plot13<-plot(a,b,type="b",pch="*",col.main=2,main="标题颜色为红",sub="plot13")
plot14<-plot(a,b,type="b",pch="*",col.sub=2,main="副标题颜色为红",sub="plot14")
plot15<-plot(a,b,type="b",pch="*",fg=2,main="图形的前景色为红",sub="plot15")
plot16<-plot(a,b,type="b",pch=23,bg=2,main="点的类型23，背景色为红",sub="plot16")

# 使用xlab与ylab参数设置横纵坐标标签
par(mfrow=c(2,1))
plot17<-plot(a,b,type="b",pch="*",xlab="横坐标标签",col.main=2,main="设置横坐标标签举例",sub="plot15")
plot18<-plot(a,b,type="b",pch="*",ylab="纵坐标标签",col.main=2,main="设置横坐标标签举例",sub="plot16")

# 使用xlim与ylim参数设置坐标轴范围
par(mfrow=c(3,1))
plot19<-plot(a,b,type="b",pch="*",xlim=c(0,40),col.main=2,main="设置横坐标范围后图例",sub="plot19")
plot20<-plot(a,b,type="b",pch="*",ylim=c(5,65),col.main=2,main="设置横坐标范围后图例",sub="plot20")
plot21<-plot(a,b,type="b",pch="*",xlim=c(0,40),ylim=c(5,65),col.main=2,main="设置横纵坐标范围后图例",sub="plot21")

# 使用font参数设置字体。font=1 表示常规字体，2 表示粗体，3 表示斜体，4 表示粗斜体，5 表示符号字体
# 字体参数	作用
# font.axis	坐标轴字体
# font.lab	坐标轴标签字体
# font.main	主标题字体
# font.sub	副标题字体
# family	  字体家族：“serif”表示衬线，“sans”表示无衬线，“mono”表示等宽

a2<-c(1,2,3,4,5)
b2<-c(1,2,3,4,5)
plot22<-plot(a2,b2,type="b",pch="*",font.axis=4,xlab="横坐标a2",ylab="纵坐标b2",main="坐标轴字体",sub="plot22")
plot23<-plot(a2,b2,type="b",pch="*",font.lab=4,xlab="横坐标a2",ylab="纵坐标b2",main="坐标轴标签字体",sub="plot23")
plot24<-plot(a2,b2,type="b",pch="*",font.main=4,xlab="横坐标a2",ylab="纵坐标b2",main="主标题字体",sub="plot24")

# title()函数为图形添加标题和坐标轴标签。
# 注意事项：
# 添加标题与标签是在原基础上添加，如果原先有标题或者标签，则新加入的会与之重叠（下面第二个图），所以在要加入新的标签或标题，要把原先的删掉。
par(mfrow=c(3,1))
a2<-c(1,2,3,4,5)
b2<-c(1,2,3,4,5)
plot29<-plot(a2,b2,type="b",pch="*")
plot29<-plot(a2,b2,type="b",pch="*")
title(main="这是标题",sub="这是副标题",xlab="标签1",ylab="标签2")
plot30<-plot(a2,b2,type="b",pch="*",xlab="",ylab="")
title(main="这是标题",sub="这是副标题",xlab="标签1",ylab="标签2")

# 在原有图的基础上添加线，可以使用abline()函数
# abline(a,b,h=x,v=x)，其中 a 表示截距，b 表示斜率， h 表示与横坐标平行的线，v 表示与纵坐标平行的线，如：
a<-c(10,15,20,25,30,35)
b<-c(12,23,27,44,56,63)
par(mfrow=c(2,1))
plot31<-plot(a,b,type="l",pch="*",col="blue",xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="水平线",sub="plot31")
abline(h=c(20,35,55),v=c(15,25),col="red")
plot32<-plot(a,b,type="l",pch="*",col="blue",xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="截距为20，斜率为1",sub="plot32")
abline(a=20,b=1,col="red") #截距为20，斜率为1


# 在现有图形上添加线可以使用lines
# lines函数lines(x, y = NULL, type = “l”, …)
a<-c(10,15,20,25,30,35)
b<-c(12,23,27,44,56,63)
plot33<-plot(a,b,type="l",pch="*",col="blue",xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="添加线",sub="plot33")
lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",col="red")

# 使用layout()函数划分绘图页面，将一张绘图页面类似于矩阵划分为多个区域，可设置某图形的特定行高与列宽
# 1：layout(mat, widths = rep.int(1, ncol(mat)),heights = rep.int(1, nrow(mat))····)
#   layout(mat, widths = rep.int(1, ncol(mat)), heights = rep.int(1, nrow(mat)))
#   mat：一个矩阵，其中的行和列对应于布局中的行和列。矩阵中的每个元素代表一个图形的位置。
#   widths：一个向量，指定每列的相对宽度。默认情况下，每列的宽度都是1。
#   heights：一个向量，指定每行的相对高度。默认情况下，每行的高度都是1。

# 2：layout.show(n = 1)
#   n：指定要显示的图形的编号。在layout()函数定义的布局中，编号从1开始。

# lcm(x)
#   x：一个整数向量，lcm()函数计算这些整数的最小公倍数。

# mat为矩阵，用于划分绘图窗口，矩阵里0表示此位置不画图，非零元素从1开始，必须为整数值，非0元素的大小就是绘图顺序。
# 比如1，3，2：先画1，后2位置，后画3位；widths设置上列的宽度，绝对宽度用lcm()指定，相对宽度用数值设置。
# heights设置行高度，用法与widths一样；n指要绘制图形的数量。

layout(matrix(c(1,1,2,1,1,3),2,3,byrow=T))  #设置画图区域及顺序
lines1<-plot51<-plot(a,b,type="b",pch=23,col="blue",col.axis=2,xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="添加文字",sub="plot51")
lines2<-lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
legend("topleft",inset=0.05,cex=0.8,title="lines",c("lines1","lines2"),pch=c(23,21),text.col=2)
text(27,60,"lines1",col="blue")
text(35,45,"lines2",col="red")

plot49<-plot(a,b,type="l",pch=23,col="blue",xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="关键字为center图9",sub="plot49")
lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
legend("center",inset=0.05,cex=0.4,title="图例",c("线1","线2"),pch=c(23,21 ),text.col=2)

plot50<-plot(a,b,type="l",pch=23,col="blue",xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="添加线",sub="plot33")
lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
legend("bottomleft",inset=0.05,cex=0.4,title="图例",c("线1","线2"),pch=c(23,21 ),text.col=2)

# 设置布局
layout(matrix(c(1, 1, 2, 1, 1, 3), 2, 3, byrow = TRUE))

# 绘制图形
plot(1:10, rnorm(10), main = "Plot 1", xlim = c(1, 10), ylim = c(-2, 2))
plot(1:10, rnorm(10), main = "Plot 2", xlim = c(1, 10), ylim = c(-2, 2), panel.first = grid())
plot(1:10, rnorm(10), main = "Plot 3", xlim = c(1, 10), ylim = c(-2, 2), panel.first = grid())

# 重置布局
layout(1)

# 好的，让我们更详细地解释一下layout()函数和你的代码示例中的布局设置。
# 布局矩阵
# 你的代码中使用了以下布局矩阵：

# layout(matrix(c(1, 1, 2, 1, 1, 3), 2, 3, byrow = TRUE))
# 这个矩阵定义了如何在一个2行3列的网格中放置3个图形。矩阵中的数字代表每个图形应该放在哪个位置。这里的数字1、2、3是图形的编号，它们告诉R在布局的哪个位置绘制对应的图形。

# 矩阵的布局
# 矩阵c(1, 1, 2, 1, 1, 3)被重新组织成一个2行3列的矩阵，如下所示：

# 1 1 2
# 1 1 3
# 这个矩阵表示：

# 第1个图形（编号为1）占据了第一行的第1和第2列。
# 第2个图形（编号为2）占据了第一行的第3列。
# 第3个图形（编号为3）占据了第二行的第3列。
# 为什么是这样的布局
# 这个布局的设计可能是为了满足特定的视觉或数据展示需求。例如，你可能想要：

# 将第1个图形放在左侧两个位置，以便展示更多的细节或比较。
# 将第2个和第3个图形放在右侧，以便它们可以并排显示，便于比较。
# 可视化解释
# 为了更直观地理解这个布局，我们可以将其可视化如下：

# +----+----+----+
# | 1  | 1  | 2  |
# +----+----+----+
# | 1  | 1  | 3  |
# +----+----+----+

# 使用legend()函数添加图例
# 在R语言中，legend() 函数用于在图形上添加图例，以便解释图形中不同符号、线条或颜色的含义。这个函数非常灵活，可以通过多种参数来定制图例的外观和位置。
#
# 基本语法
#
# legend(x, y = NULL, legend, col = par("col"), border = "black", lty, lwd, pch, text.width = NULL, text.col = par("col"), text.font = NULL, plot = TRUE, inset = 0, title.col = text.col[1], ...)

# 参数详解
# x, y：图例的左下角位置。如果y为NULL，则x可以是一个字符型参数，指定图例的预设位置（如"topright"、"bottomleft"等）。
# legend：图例中显示的文本，通常是一个字符向量。
# inset：用于控制图例框内部的边距，即图例内容与其边框之间的距离。
# col：用于图例符号和文本的颜色。
# border：图例边框的颜色。
# lty：线条类型（实线、虚线等）。
# lwd：线条宽度。
# pch：点的形状。
# text.width：文本宽度的倍数，NULL表示自动计算。
# text.col：图例文本的颜色。
# text.font：文本字体。
# plot：是否在图形上绘制图例。
# inset：图例框内部的边距。
# title.col：图例标题的颜色。
# ...：其他图形参数，允许进一步定制图例。

# cex参数可以传递给许多绘图函数，如plot()、text()、mtext()、legend()等，来调整文本的大小。
# cex = 倍数
# 倍数：默认情况下，R图形中的文本大小是基于当前图形设备的默认大小。cex参数允许你指定一个倍数，来放大或缩小这个默认大小。
# 例如，cex = 1表示默认大小，cex = 2表示文本大小是默认大小的两倍，而cex = 0.5则表示文本大小是默认大小的一半。

plot(1:10, rnorm(10))
legend("topright", legend = "Example", cex = 1)

                                                ##################  示例  #################################
layout(matrix(c(1,2,3,4),2,2))#列排，按矩阵排法画图，2行2列
plot41<-plot(a,b,type="l",pch=23,col="blue",xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="关键字bottom,图1",sub="plot41")
lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
legend("bottom",inset=0.04,cex=0.4,title="图例",c("线1","线2"),pch=c(23,21 ),text.col=2)

plot42<-plot(a,b,type="l",pch=23,col="blue",xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="关键字bottomleft，图2",sub="plot42")
lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
legend("bottomleft",cex=0.4,inset=0.05,title="图例",c("线1","线2"),pch=c(23,21 ),text.col=2)

plot43<-plot(a,b,type="l",pch=23,col="blue",xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="关键字left，图3",sub="plot43")
lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
legend("left",inset=0.05,cex=0.4,title="图例",c("线1","线2"),pch=c(23,21 ),text.col=2)

plot44<-plot(a,b,type="l",pch=23,col="blue",xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="关键字topleft，图4",sub="plot44")
lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
legend("topleft",inset=0.05,cex=0.4,title="图例",c("线1","线2"),pch=c(23,21 ),text.col=2)

layout(matrix(c(1,2,3,4,5,0),2,3,byrow=T))  #按行排列绘图

plot45<-plot(a,b,type="l",pch=23,col="blue",xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="关键字top，图5",sub="plot45")
lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
legend("top",inset=0.05,cex=0.4,title="图例",c("线1","线2"),pch=c(23,21 ),text.col=2)

plot46<-plot(a,b,type="l",pch=23,col="blue",xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="关键字topright，图6",sub="plot46")
lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
legend("topright",inset=0.05,cex=0.4,title="图例",c("线1","线2"),pch=c(23,21 ),text.col=2)

plot47<-plot(a,b,type="l",pch=23,col="blue",xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="关键字为rigth，图7",sub="plot47")
lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
legend("right",inset=0.05,cex=0.4,title="图例",c("线1","线2"),pch=c(23,21 ),text.col=2)

plot48<-plot(a,b,type="l",pch=23,col="blue",xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="关键字为bottomright，图8",sub="plot48")
lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
legend("bottomright",inset=0.05,cex=0.4,title="图例",c("线1","线2"),pch=c(23,21 ),text.col=2)

plot49<-plot(a,b,type="l",pch=23,col="blue",xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="关键字为center图9",sub="plot49")
lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
legend("center",inset=0.05,cex=0.4,title="图例",c("线1","线2"),pch=c(23,21 ),text.col=2)

lines1<-plot51<-plot(a,b,type="b",pch=23,col="blue",col.axis=2,xlim=c(0,40),ylim=c(5,65),col.main=2,col.sub="blue",main="添加文字",sub="plot51")
lines2<-lines(c(5,10,20,25,32,35),c(5,25,35,45,50,55),type="b",pch=21,col="red")
legend("topleft",inset=0.05,cex=0.8,title="lines",c("lines1","lines2"),pch=c(23,21),text.col=2)
text(27,60,"lines1",col="blue")
text(35,45,"lines2",col="red")

# locator(1)      #直接回车，点击图片上想获取坐标的位置！！！！！！！！！！！！！

dev.off()
